BCI NET 2/BCI NET 2.iso/archives/programming/misc/amicvs1-0.lha/AmiCVS/emacs/lisp-adds/pcl-cvs/cookie.elc

Text File | 1994-11-04 | 23.0 KB | 393 lines

(require (quote dll))

(provide (quote cookie))

(put (quote icookie-set-buffer-bind-dll) (quote lisp-indent-hook) 1)

(defmacro icookie-set-buffer-bind-dll (collection &rest forms) (byte-code "ÄÅ!ÄÆ!ÇÈD
DÉÊ    DDEËÌ    DDÍÎÏ\"ËDEF*‡" [old-buffer hnd collection forms make-symbol "old-buffer" "collection" let* (current-buffer) dll icookie-collection->dll set-buffer icookie-collection->buffer unwind-protect append (progn)] 10))

(put (quote icookie-set-buffer-bind-dll-let*) (quote lisp-indent-hook) 2)

(defmacro icookie-set-buffer-bind-dll-let* (collection varlist &rest forms) (byte-code "ÅÆ!ÅÇ!ÈÉÊD
DËÌ    DDE\"ÍÎ    DDÏÉÐ\"ÍDEF*‡" [old-buffer hnd collection varlist forms make-symbol "old-buffer" "collection" let* append (current-buffer) dll icookie-collection->dll set-buffer icookie-collection->buffer unwind-protect (progn)] 11))

(defmacro icookie-filter-hf (collection tin) (byte-code "ÄÅ!ÄÆ!Ç
D    DDÈÉÊË    DEÊÌ    DEEÍFE*‡" [tempvar tmpcoll tin collection make-symbol "tin" "tmpcollection" let if or eq icookie-collection->header icookie-collection->footer nil] 11))

(defun icookie-create-wrapper (start-marker cookie) (byte-code "Âà    \"B‡" [start-marker cookie WRAPPER vector] 4))

(defun icookie-wrapper->start-marker (wrapper) (byte-code "ÁAÂ\"‡" [wrapper elt 0] 3))

(defun icookie-wrapper->cookie-safe (wrapper) (byte-code "ÁAÂ\"‡" [wrapper elt 1] 3))

(defun icookie-wrapper->cookie (wrapper) (byte-code "ÁAÂ\"‡" [wrapper elt 1] 3))

(defun icookie-create-collection (buffer pretty-printer header-wrapper footer-wrapper dll) (byte-code "ÆÇ
Å&B‡" [buffer pretty-printer header-wrapper footer-wrapper dll nil COLLECTION vector] 8))

(defun icookie-collection->buffer (collection) (byte-code "ÁAÂ\"‡" [collection elt 0] 3))

(defun icookie-collection->pretty-printer (collection) (byte-code "ÁAÂ\"‡" [collection elt 1] 3))

(defun icookie-collection->header (collection) (byte-code "ÁAÂ\"‡" [collection elt 2] 3))

(defun icookie-collection->footer (collection) (byte-code "ÁAÂ\"‡" [collection elt 3] 3))

(defun icookie-collection->dll (collection) (byte-code "ÁAÂ\"‡" [collection elt 4] 3))

(defun icookie-collection->last-tin (collection) (byte-code "ÁAÂ\"‡" [collection elt 5] 3))

(defun icookie-set-collection->buffer (collection buffer) (byte-code "A    I‡" [collection buffer 0] 3))

(defun icookie-set-collection->pretty-printer (collection pretty-printer) (byte-code "A    I‡" [collection pretty-printer 1] 3))

(defun icookie-set-collection->header (collection header) (byte-code "A    I‡" [collection header 2] 3))

(defun icookie-set-collection->footer (collection footer) (byte-code "A    I‡" [collection footer 3] 3))

(defun icookie-set-collection->dll (collection dll) (byte-code "A    I‡" [collection dll 4] 3))

(defun icookie-set-collection->last-tin (collection last-tin) (byte-code "A    I‡" [collection last-tin 5] 3))

(defun icookie-abs (x) (byte-code "[]‡" [x] 2))

(defun icookie-create-wrapper-and-insert (cookie string pos) (byte-code "ŠbˆÆ!ƒÇ!‚ÃÈ!ˆÈÉ!ˆÊË    !\"*)‡" [pos start buffer-read-only nil string cookie markerp marker-position insert-before-markers 10 icookie-create-wrapper copy-marker] 8))

(defun icookie-create-wrapper-and-pretty-print (cookie pretty-printer pos) (byte-code "ŠbˆÆ!ƒÇ!‚ÃÈÉ!ˆÊË!ˆÌ\"ˆÍÎ    !\"*)‡" [pos start buffer-read-only nil pretty-printer cookie markerp marker-position insert-before-markers 10 backward-char 1 funcall icookie-create-wrapper copy-marker] 9))

(defun icookie-delete-tin-internal (collection tin) (byte-code "Å    !ÃÆ    !=…Ç    Ã\"ˆÈÉÊH!ÉË\"ÊH!\"ˆÌÉÊH!Ã\"ˆÍ\"*‡" [dll collection buffer-read-only nil tin icookie-collection->dll icookie-collection->last-tin icookie-set-collection->last-tin delete-region icookie-wrapper->start-marker 2 dll-next set-marker dll-delete] 12))

(defun icookie-refresh-tin (collection tin) (byte-code "ÁŠÅÆ
ÇH!ÈÆÉ
\"ÇH!!S\"ˆÆ
ÇH!bˆÊË!Ì
ÇH!\"))‡" [buffer-read-only nil tin dll collection delete-region icookie-wrapper->start-marker 2 marker-position dll-next funcall icookie-collection->pretty-printer icookie-wrapper->cookie] 12))

(defun icookie-pos-before-middle-p (collection pos tin1 tin2) (byte-code "Å    !
ÆÇÈH!ÇÈH!\\È\"W)‡" [dll collection pos tin1 tin2 icookie-collection->dll / icookie-wrapper->start-marker 2] 8))

(defun collection-create (buffer pretty-printer &optional header footer pos) "\
Create an empty collection of cookies.
Args: BUFFER PRETTY-PRINTER &optional HEADER FOOTER POS.

The collection will be inserted in BUFFER. BUFFER may be a
buffer or a buffer name. It is created if it does not exist.

PRETTY-PRINTER should be a function that takes one argument, a
cookie, and inserts a string representing it in the buffer (at
point). The string PRETTY-PRINTER inserts may be empty or span
several linse. A trailing newline will always be inserted
automatically. The PRETTY-PRINTER should use insert, and not
insert-before-markers.

Optional third argument HEADER is a string that will always be
present at the top of the collection. HEADER should end with a
newline.  Optionaly fourth argument FOOTER is similar, and will
always be inserted at the bottom of the collection.

Optional fifth argument POS is a buffer position, specifying
where the collection will be inserted. It defaults to the
begining of the buffer." (byte-code "ÌÍ    !
ÃÃÎ %pÏ!Ð!qˆÑŽ?…%҉ˆ?…0҉ˆ    ?ƒ>e‰    ‚LÓ    !…L    Ô    !LˆÕ    #Õ    #
Ö\"ˆ×
\"ˆØÙÚ\"\"ˆÛÙÜ\"\"*)+ˆ)‡" [new-collection buffer pretty-printer nil old-buffer collection dll header footer pos foot head icookie-create-collection get-buffer-create dll-create icookie-collection->dll icookie-collection->buffer ((byte-code "q‡" [old-buffer] 1)) "" markerp marker-position icookie-create-wrapper-and-insert dll-enter-first dll-enter-last icookie-set-collection->header dll-nth 0 icookie-set-collection->footer -1] 18))

(defun tin-cookie (collection tin) "\
Get the cookie from a TIN. Args: COLLECTION TIN." (byte-code "ÁÂH!‡" [tin icookie-wrapper->cookie 2] 3))

(defun cookie-enter-first (collection cookie) "\
Enter a COOKIE first in the cookie collection COLLECTION.
Args: COLLECTION COOKIE." (byte-code "p
Å    !Æ    !qˆÇŽÈÉÊ\"ËÌ
!ÍÉÎ\"ÏH!##)+‡" [old-buffer collection collection dll cookie icookie-collection->dll icookie-collection->buffer ((byte-code "q‡" [old-buffer] 1)) dll-enter-after dll-nth 0 icookie-create-wrapper-and-pretty-print icookie-collection->pretty-printer icookie-wrapper->start-marker 1 2] 14))

(defun cookie-enter-last (collection cookie) "\
Enter a COOKIE last in the cookie-collection COLLECTION.
Args: COLLECTION COOKIE." (byte-code "p
Å    !Æ    !qˆÇŽÈÉÊ\"ËÌ
!ÍÎ!!##)+‡" [old-buffer collection collection dll cookie icookie-collection->dll icookie-collection->buffer ((byte-code "q‡" [old-buffer] 1)) dll-enter-before dll-nth -1 icookie-create-wrapper-and-pretty-print icookie-collection->pretty-printer icookie-wrapper->start-marker dll-last] 13))

(defun cookie-enter-after-tin (collection tin cookie) "\
Enter a new COOKIE after TIN.
Args: COLLECTION TIN COOKIE." (byte-code "p
Æ    !Ç    !qˆÈŽÉÊË
!ÌÍ\"ÎH!##)+‡" [old-buffer collection collection dll tin cookie icookie-collection->dll icookie-collection->buffer ((byte-code "q‡" [old-buffer] 1)) dll-enter-after icookie-create-wrapper-and-pretty-print icookie-collection->pretty-printer icookie-wrapper->start-marker dll-next 2] 13))

(defun cookie-enter-before-tin (collection tin cookie) "\
Enter a new COOKIE before TIN.
Args: COLLECTION TIN COOKIE." (byte-code "p
Æ    !Ç    !qˆÈŽÉÊË
!ÌÍH!##)+‡" [old-buffer collection collection dll tin cookie icookie-collection->dll icookie-collection->buffer ((byte-code "q‡" [old-buffer] 1)) dll-enter-before icookie-create-wrapper-and-pretty-print icookie-collection->pretty-printer icookie-wrapper->start-marker 2] 12))

(defun tin-next (collection tin) "\
Get the next tin. Args: COLLECTION TIN.
Returns nil if TIN is nil or the last cookie." (byte-code "ƒ&ÅÆ
!\"
    Ç!=†    È!=ƒ!Ă\"    *‚'ć" [tin tin collection tmpcollection nil dll-next icookie-collection->dll icookie-collection->header icookie-collection->footer] 6))

(defun tin-previous (collection tin) "\
Get the previous tin. Args: COLLECTION TIN.
Returns nil if TIN is nil or the first cookie." (byte-code "ƒ&ÅÆ
!\"
    Ç!=†    È!=ƒ!Ă\"    *‚'ć" [tin tin collection tmpcollection nil dll-previous icookie-collection->dll icookie-collection->header icookie-collection->footer] 6))

(defun tin-nth (collection n) "\
Return the Nth tin. Args: COLLECTION N.
N counts from zero. Nil is returned if there is less than N cookies.
If N is negative, return the -(N+1)th last element.
Thus, (tin-nth dll 0) returns the first node,
and (tin-nth dll -1) returns the last node.

Use tin-cookie to extract the cookie from the tin (or use
cookie-nth instead)." (byte-code "ÅWƒS‰‚T‰ˆÆÇ
!\"
    È!=†(    É!=ƒ/Ă0    *‡" [n tin collection tmpcollection nil 0 dll-nth icookie-collection->dll icookie-collection->header icookie-collection->footer] 6))

(defun cookie-nth (collection n) "\
Return the Nth cookie. Args: COLLECTION N.
N counts from zero. Nil is returned if there is less than N cookies.
If N is negative, return the -(N+1)th last element.
Thus, (cookie-nth dll 0) returns the first cookie,
and (cookie-nth dll -1) returns the last cookie." (byte-code "ÇWƒS‰‚T‰ˆÈ
!É    \"
Ê!=†*Ë!=ƒ1Ƃ2*ƒ@ÌÍH!‚AÆ*‡" [n dll collection tin tin tmpcollection nil 0 icookie-collection->dll dll-nth icookie-collection->header icookie-collection->footer icookie-wrapper->cookie 2] 7))

(defun tin-delete (collection tin) "\
Delete a tin from a collection. Args: COLLECTION TIN.
The cookie in the tin is returned." (byte-code "p
Å    !Æ    !qˆÇŽÈÉ
\"!)+‡" [old-buffer collection collection dll tin icookie-collection->dll icookie-collection->buffer ((byte-code "q‡" [old-buffer] 1)) icookie-wrapper->cookie icookie-delete-tin-internal] 6))

(defun cookie-delete-first (collection) "\
Delete first cookie and return it. Args: COLLECTION.
Returns nil if there are no cookies left in the collection." (byte-code "p
Æ    !ÇÈ\"É    !qˆÊŽË
!=ƒ ł&ÌÍ
\"!),‡" [old-buffer collection collection dll tin nil icookie-collection->dll dll-nth 1 icookie-collection->buffer ((byte-code "q‡" [old-buffer] 1)) icookie-collection->footer icookie-wrapper->cookie icookie-delete-tin-internal] 8))

(defun cookie-delete-last (collection) "\
Delete last cookie and return it. Args: COLLECTION.
Returns nil if there is no cookie left in the collection." (byte-code "p
Æ    !ÇÈ\"É    !qˆÊŽË
!=ƒ ł&ÌÍ
\"!),‡" [old-buffer collection collection dll tin nil icookie-collection->dll dll-nth -2 icookie-collection->buffer ((byte-code "q‡" [old-buffer] 1)) icookie-collection->header icookie-wrapper->cookie icookie-delete-tin-internal] 8))

(defun cookie-first (collection) "\
Return the first cookie in COLLECTION. The cookie is not removed." (byte-code "Æ    !ÇÈ\"    É!=†Ê!=ƒł *
…+Ë
ÌH!*‡" [dll collection tin tin tmpcollection nil icookie-collection->dll dll-nth -1 icookie-collection->header icookie-collection->footer icookie-wrapper->cookie 2] 7))

(defun cookie-last (collection) "\
Return the last cookie in COLLECTION. The cookie is not removed." (byte-code "Æ    !ÇÈ\"    É!=†Ê!=ƒł *
…+Ë
ÌH!*‡" [dll collection tin tin tmpcollection nil icookie-collection->dll dll-nth -2 icookie-collection->header icookie-collection->footer icookie-wrapper->cookie 2] 7))

(defun collection-empty (collection) "\
Return true if there are no cookies in COLLECTION." (byte-code "ÁÂ!Ã\"Ä!=‡" [collection dll-nth icookie-collection->dll 1 icookie-collection->footer] 5))

(defun collection-length (collection) "\
Return the number of cookies in COLLECTION." (byte-code "ÁÂ!!ÃZ‡" [collection dll-length icookie-collection->dll 2] 4))

(defun collection-list-cookies (collection) "\
Return a list of all cookies in COLLECTION." (byte-code "p
È    !ÅÉ
!ÊË\"Ì    !qˆÍŽ=?…<ÎÏH!B‰ˆÐ\"‰ˆ‚ˆ).‡" [old-buffer collection collection dll result nil header tin icookie-collection->dll icookie-collection->header dll-nth -2 icookie-collection->buffer ((byte-code "q‡" [old-buffer] 1)) icookie-wrapper->cookie 2 dll-previous] 9))

(defun collection-clear (collection) "\
Remove all cookies in COLLECTION." (byte-code "p
È    !É
!Ê
!Ë    !qˆÌŽÇÍÎÏÐ\"ÑH!ÎÑH!\")ˆÒÑHÑHD!‰ˆÓ
\"ˆÔ
ÏÕ\"\"ˆÖ
Ï×\"\")-‡" [old-buffer collection collection dll header footer buffer-read-only nil icookie-collection->dll icookie-collection->header icookie-collection->footer icookie-collection->buffer ((byte-code "q‡" [old-buffer] 1)) delete-region icookie-wrapper->start-marker dll-nth 1 2 dll-create-from-list icookie-set-collection->dll icookie-set-collection->header 0 icookie-set-collection->footer -1] 17))

(defun cookie-map (map-function collection &rest map-args) "\
Apply MAP-FUNCTION to all cookies in COLLECTION.
MAP-FUNCTION is applied to the first element first.
If MAP-FUNCTION returns non-nil the cookie will be refreshed (its
pretty-printer will be called once again).

Note that the buffer for COLLECTION will be current buffer when MAP-FUNCTION
is called.  MAP-FUNCTION must restore the current buffer to BUFFER before
it returns, if it changes it.

If more than two arguments are given to cookie-map, remaining
arguments will be passed to MAP-FUNCTION." (byte-code "p
È    !É
!ÊË\"Ì    !qˆÍŽ=?…<ÎÏÐH!#…1Ñ
\"ˆÒ\"‰ˆ‚)-‡" [old-buffer collection collection dll footer tin map-function map-args icookie-collection->dll icookie-collection->footer dll-nth 1 icookie-collection->buffer ((byte-code "q‡" [old-buffer] 1)) apply icookie-wrapper->cookie 2 icookie-refresh-tin dll-next] 11))

(defun cookie-map-reverse (map-function collection &rest map-args) "\
Apply MAP-FUNCTION to all cookies in COLLECTION.
MAP-FUNCTION is applied to the last cookie first.
If MAP-FUNCTION returns non-nil the cookie will be refreshed.

Note that the buffer for COLLECTION will be current buffer when MAP-FUNCTION
is called.  MAP-FUNCTION must restore the current buffer to BUFFER before
it returns, if it changes the current buffer.

If more than two arguments are given to cookie-map, remaining
arguments will be passed to MAP-FUNCTION." (byte-code "p
È    !É
!ÊË\"Ì    !qˆÍŽ=?…<ÎÏÐH!#…1Ñ
\"ˆÒ\"‰ˆ‚)-‡" [old-buffer collection collection dll header tin map-function map-args icookie-collection->dll icookie-collection->header dll-nth -2 icookie-collection->buffer ((byte-code "q‡" [old-buffer] 1)) apply icookie-wrapper->cookie 2 icookie-refresh-tin dll-previous] 11))

(defun collection-append-cookies (collection cookie-list) "\
Insert all cookies in the list COOKIE-LIST last in COLLECTION.
Args: COLLECTION COOKIE-LIST." (byte-code "…    @\"ˆA‰ˆ‚‡" [cookie-list collection cookie-enter-last] 4))

(defun collection-filter-cookies (collection predicate &rest extra-args) "\
Remove all cookies in COLLECTION for which PREDICATE returns nil.
Args: COLLECTION PREDICATE &rest EXTRA-ARGS.
Note that the buffer for COLLECTION will be current-buffer when PREDICATE
is called. PREDICATE must restore the current buffer before it returns
if it changes it.

The PREDICATE is called with the cookie as its first argument. If any
EXTRA-ARGS are given to collection-filter-cookies they will be passed to the
PREDICATE." (byte-code "p
Ê    !ËÌ\"Í
!ÇÎ    !qˆÏŽ=?…IÐ\"‰ˆÑÒÓH!    #ƒ<ǂ@Ô
\"ˆ‰ˆ‚).‡" [old-buffer collection collection dll tin footer next nil predicate extra-args icookie-collection->dll dll-nth 1 icookie-collection->footer icookie-collection->buffer ((byte-code "q‡" [old-buffer] 1)) dll-next apply icookie-wrapper->cookie 2 icookie-delete-tin-internal] 11))

(defun collection-filter-tins (collection predicate &rest extra-args) "\
Remove all cookies in COLLECTION for which PREDICATE returns nil.
Note that the buffer for COLLECTION will be current-buffer when PREDICATE
is called. PREDICATE must restore the current buffer before it returns
if it changes it.

The PREDICATE is called with one argument, the tin. If any EXTRA-ARGS
are given to collection-filter-cookies they will be passed to the PREDICATE." (byte-code "p
Ê    !ËÌ\"Í
!ÇÎ    !qˆÏŽ=?…EÐ\"‰ˆÑ    #ƒ8ǂ<Ò
\"ˆ‰ˆ‚).‡" [old-buffer collection collection dll tin footer next nil predicate extra-args icookie-collection->dll dll-nth 1 icookie-collection->footer icookie-collection->buffer ((byte-code "q‡" [old-buffer] 1)) dll-next apply icookie-delete-tin-internal] 10))

(defun tin-locate (collection pos &optional guess) "\
Return the tin that POS (a buffer position) is within.
Args: COLLECTION POS &optional GUESS.
POS may be a marker or an integer.
GUESS should be a tin that it is likely that POS is near.

If POS points before the first cookie, the first cookie is returned.
If POS points after the last cookie, the last cookie is returned.
If the COLLECTION is empty, nil is returned." (byte-code "p
Í    !Î
!Ï    !qˆÐŽÑÒ\"ÑÓ\"=ƒ#ł&
ÔÑÒ\"ÕH!Wƒ8ÑÒ\"‚&
ÔÖ!!YƒJÑ×\"‚&
ÑÒ\"ØÔÕH!Z!    
…‡
ØÔÕH!Z!    W…†‰    ˆ‰*ˆÑÓ\"ØÔÕH!Z!    W…®‰    ˆ‰*ˆÙ
!…ÜÙ
!ØÔÕH!Z!    W…Û‰    ˆ‰*ˆÔÕH!Yƒ

ÔÕH!Y…

Ú\"‰ˆ‚éˆÛ\"‚%
ÔÕH!W…\"
Û\"‰ˆ‚

ˆ*),‡" [old-buffer collection collection dll footer nil pos t best-guess distance guess g d icookie-collection->dll icookie-collection->footer icookie-collection->buffer ((byte-code "q‡" [old-buffer] 1)) dll-nth 1 -1 icookie-wrapper->start-marker 2 dll-last -2 icookie-abs icookie-collection->last-tin dll-next dll-previous] 32))

(defun collection-refresh (collection) "\
Refresh all cookies in COLLECTION.

The pretty-printer that was specified when the COLLECTION was created
will be called for all cookies in COLLECTION.

Note that tin-invalidate is more efficient if only a small
number of cookies needs to be refreshed." (byte-code "p
É    !Ê
!Ë
!Ì    !qˆÍŽÇÎÏÐÑ\"ÒH!ÏÒH!\"ˆÏÒH!bˆÐÑ\"=?…dÓÏÒH!`\"ˆÔÕ
!ÖÒH!\"ˆ×cˆØ\"‰ˆ‚7))ˆÓÏÒH!`\")-‡" [old-buffer collection collection dll header footer buffer-read-only nil tin icookie-collection->dll icookie-collection->header icookie-collection->footer icookie-collection->buffer ((byte-code "q‡" [old-buffer] 1)) delete-region icookie-wrapper->start-marker dll-nth 1 2 set-marker funcall icookie-collection->pretty-printer icookie-wrapper->cookie "
" dll-next] 20))

(defun tin-invalidate (collection &rest tins) "\
Refresh some cookies. Args: COLLECTION &rest TINS.
The pretty-printer that for COLLECTION will be called for all TINS." (byte-code "p
Å    !Æ    !qˆÇŽ…!È
@\"ˆA‰ˆ‚)+‡" [old-buffer collection collection dll tins icookie-collection->dll icookie-collection->buffer ((byte-code "q‡" [old-buffer] 1)) icookie-refresh-tin] 6))

(defun collection-set-goal-column (collection goal) "\
Set goal-column for COLLECTION.
Args: COLLECTION GOAL.
goal-column is made buffer-local.

There will eventually be a better way to specify the cursor position." (byte-code "p
Æ    !Ç    !qˆÈŽÉÄ!ˆ‰)+‡" [old-buffer collection collection dll goal-column goal icookie-collection->dll icookie-collection->buffer ((byte-code "q‡" [old-buffer] 1)) make-local-variable] 5))

(defun tin-goto-previous (collection pos arg) "\
Move point to the ARGth previous cookie.
Don't move if we are at the first cookie, or if COLLECTION is empty.
Args: COLLECTION POS ARG.
Returns the tin we move to." (byte-code "p
Ë    !Ì
Í
!#Î    !qˆÏŽ…{…#ÐV…7S‰ˆÑ\"‰ˆ‚ˆ
Ò!=†OÓ!=ƒVɂX*?…cÔÕ\"‰ˆÖ×H!bˆ
…tØ
!ˆÙ
\"ˆ),‡" [old-buffer collection collection dll tin pos arg tin tmpcollection nil goal-column icookie-collection->dll tin-locate icookie-collection->last-tin icookie-collection->buffer ((byte-code "q‡" [old-buffer] 1)) 0 dll-previous icookie-collection->header icookie-collection->footer dll-nth 1 icookie-wrapper->start-marker 2 move-to-column icookie-set-collection->last-tin] 13))

(defun tin-goto-next (collection pos arg) "\
Move point to the ARGth next cookie.
Don't move if we are at the last cookie.
Args: COLLECTION POS ARG.
Returns the tin." (byte-code "p
Ë    !Ì
Í
!#Î    !qˆÏŽ…ÐV…3S‰ˆÑ\"‰ˆ‚ˆ
Ò!=†KÓ!=ƒRɂT*?…_ÔÕ\"‰ˆÖ×H!bˆ
…pØ
!ˆÙ
\"ˆ),‡" [old-buffer collection collection dll tin pos arg tin tmpcollection nil goal-column icookie-collection->dll tin-locate icookie-collection->last-tin icookie-collection->buffer ((byte-code "q‡" [old-buffer] 1)) 0 dll-next icookie-collection->header icookie-collection->footer dll-nth -2 icookie-wrapper->start-marker 2 move-to-column icookie-set-collection->last-tin] 13))

(defun tin-goto (collection tin) "\
Move point to TIN.  Args: COLLECTION TIN." (byte-code "p
Æ    !Ç    !qˆÈŽÉÊH!bˆ…Ë!ˆÌ
\")+‡" [old-buffer collection collection dll tin goal-column icookie-collection->dll icookie-collection->buffer ((byte-code "q‡" [old-buffer] 1)) icookie-wrapper->start-marker 2 move-to-column icookie-set-collection->last-tin] 7))

(defun collection-collect-tin (collection predicate &rest predicate-args) "\
Select cookies from COLLECTION using PREDICATE.
Return a list of all selected tins.

PREDICATE is a function that takes a cookie as its first argument.

The tins on the returned list will appear in the same order as in the
buffer.  You should not rely on in which order PREDICATE is called.

Note that the buffer the COLLECTION is displayed in is current-buffer
when PREDICATE is called.  If PREDICATE must restore current-buffer if
it changes it.

If more than two arguments are given to collection-collect-tin the remaining
arguments will be passed to PREDICATE." (byte-code "p
Ê    !Ë
!ÌÍ\"ÇÎ    !qˆÏŽ=?…BÐÑÒH!    #…7B‰ˆÓ\"‰ˆ‚ˆ).‡" [old-buffer collection collection dll header tin result nil predicate predicate-args icookie-collection->dll icookie-collection->header dll-nth -2 icookie-collection->buffer ((byte-code "q‡" [old-buffer] 1)) apply icookie-wrapper->cookie 2 dll-previous] 10))

(defun collection-collect-cookie (collection predicate &rest predicate-args) "\
Select cookies from COLLECTION using PREDICATE.
Return a list of all selected cookies.

PREDICATE is a function that takes a cookie as its first argument.

The cookies on the returned list will appear in the same order as in
the buffer.  You should not rely on in which order PREDICATE is
called.

Note that the buffer the COLLECTION is displayed in is current-buffer
when PREDICATE is called.  If PREDICATE must restore current-buffer if
it changes it.

If more than two arguments are given to collection-collect-cookie the
remaining arguments will be passed to PREDICATE." (byte-code "p
É    !Ê
!ËÌ\"ÍÎ    !qˆÏŽ=?…FÐÑÒH!#…;ÑÒH!B‰ˆÓ\"‰ˆ‚ˆ).‡" [old-buffer collection collection dll header tin result predicate predicate-args icookie-collection->dll icookie-collection->header dll-nth -2 nil icookie-collection->buffer ((byte-code "q‡" [old-buffer] 1)) apply icookie-wrapper->cookie 2 dll-previous] 11))

(defun cookie-sort (collection predicate) "\
Sort the cookies in COLLECTION, stably, comparing elements using PREDICATE.
PREDICATE is called with two cookies, and should return T
if the first cookie is \"less\" than the second.

All cookies will be refreshed when the sort is complete." (byte-code "ÃÁ\"ˆÄÅÆ!
\"Ç!ˆ\"‡" [collection nil predicate icookie-set-collection->last-tin collection-append-cookies sort collection-list-cookies collection-clear] 8))

(defun collection-buffer (collection) "\
Return the buffer that is associated with COLLECTION.
Returns nil if the buffer has been deleted." (byte-code "à    !Ä!ƒ‚Â)‡" [buf collection nil icookie-collection->buffer buffer-name] 3))